home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / cdev / sludge.sit / Source Code / Parasite_Manager.a next >
Text File  |  1999-10-07  |  2KB  |  50 lines
  1.                         INCLUDE                'traps.a'
  2.                         EXPORT                TRY:CODE
  3.                         EXPORT                CLEAR_JUMP_TRACE_BIT:CODE
  4.  
  5.  
  6.  
  7. ;ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ
  8. ;Ñ                                                                           Ñ
  9. ;Ñ   Identifier:     TRY                                                     Ñ
  10. ;Ñ   -----------                                                             Ñ
  11. ;Ñ                                                                           Ñ
  12. ;Ñ       Description                                                         Ñ
  13. ;Ñ       -----------                                                         Ñ
  14. ;Ñ       This proc pushes the SLUDGE factor onto the stack and jumps to the  Ñ
  15. ;Ñ         parasite code.                                                          Ñ
  16. ;Ñ                                                                           Ñ
  17. ;Ñ       History                                                             Ñ
  18. ;Ñ       -------                                                             Ñ
  19. ;Ñ                                                                           Ñ
  20. ;Ñ       Author          Date            Description                         Ñ
  21. ;Ñ       ------------------------------------------------------------------  Ñ
  22. ;Ñ       Kevin McEntee   2/20/90         Original Implementation             Ñ
  23. ;Ñ                                                                           Ñ
  24. ;Ñ                                                                           Ñ
  25. ;ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ
  26. TRY                            PROC
  27.                             Move.L            D0,-(SP)
  28.                             Move.L            A0,-(SP)
  29.                             Move.L            16(SP),D0
  30.                             Move.L            12(SP),A0        ; put parasite code in A0
  31.                             Move.L            D0,-(SP)
  32.                             Jsr                (A0)
  33.                             ;
  34.                             AddA.L            #4,A7            ; eat the Sludge Factor param
  35.                             Move.L            8(SP),A0        ; ra -> A0
  36.                             Move.L            A0,16(SP)        ; put return address at top of stack
  37.                             Move.L            (SP)+,A0        ; restore A0
  38.                             Move.L            (SP)+,D0
  39.                             AddA.L            #8,A7
  40.                             RTS
  41.                             ENDPROC
  42.                             
  43.                             
  44.                             
  45. CLEAR_JUMP_TRACE_BIT            PROC
  46.                                 Andi    #$BFFF,SR
  47.                                 RTS
  48.                                 ENDPROC
  49.                             END
  50.